home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 2 / US Robotics Connections.iso / pc / sourcepc / warranty.dir / 00007.ls < prev    next >
Encoding:
Text File  |  1996-01-02  |  960 b   |  47 lines
  1. on mouseDown
  2.   play done
  3. end
  4.  
  5. on startMovie
  6.   global mycursor
  7.   set the colorDepth to 8
  8.   set mycursor to [1, 2]
  9. end
  10.  
  11. on resetit
  12.   set a to 0
  13.   puppetSprite(30, 0)
  14.   updateStage()
  15. end
  16.  
  17. on rollme
  18.   global mycursor
  19.   repeat with a = 30 to 30
  20.     if rollOver(a) then
  21.       puppetSprite(a, 1)
  22.       set old to the castNum of sprite a
  23.       set the castNum of sprite a to old + 1
  24.       set the cursor of sprite a to mycursor
  25.       updateStage()
  26.       repeat while rollOver(a)
  27.         go(the frame)
  28.         if the mouseDown then
  29.           sound playFile 1, "NOISE.AIF"
  30.           repeat while the mouseDown
  31.             if a < 30 then
  32.               set the castNum of sprite a to old
  33.               updateStage()
  34.               puppetSprite(a, 0)
  35.             end if
  36.           end repeat
  37.           exit
  38.           exit repeat
  39.         end if
  40.       end repeat
  41.       set the castNum of sprite a to old
  42.       puppetSprite(a, 0)
  43.       updateStage()
  44.     end if
  45.   end repeat
  46. end
  47.